home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / Applications / Graphics / Cirrus Demo / Cirrus 2.0 Demo / AppleScript / Scripts / doCorrectedGrayScanAndSave < prev    next >
Encoding:
Text File  |  1993-06-16  |  586 b   |  22 lines  |  [TEXT/ToyS]
  1. tell application "Cirrus D-2.0"
  2.     activate
  3.     set unit to inch
  4.     set value display to absolute
  5.     make frame at after frame "Prescan" of scanner 1
  6.     tell frame 2 of scanner 1
  7.         set mode to grayscale
  8.         set resolution to 72
  9.         set size to {left:0.0, top:0.0, width:5.77, height:4.055}
  10.         tell black correction
  11.             set type to pointlist
  12.             set input highlight to 0
  13.             set input shadow to 255
  14.             set output highlight to 0
  15.             set output shadow to 255
  16.             set point list to {{0, 0}, {129, 20}, {209, 58}, {243, 150}, {255, 255}}
  17.             set interpolation to strong
  18.         end tell
  19.         scan
  20.         save
  21.     end tell
  22. end tell